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COMMENT: 



* TITLE* B55O0/b5700 f'JAHK XIV 

* FILE ID: SYMbUl/THlCNF TaPL 



SYaTEM RELEASE 
ID"- SYMbULi/FlLEOOO 
* THIS MATFRlAl IS PROPR I E T AR Y Til HUKKUURHa CURPURATIHN 



AND IS NOT TO BE REPRODUCED/ USED* UR DISCLOSED 
EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE OR UPON 
WRITTEN AUTHflRTZATION OF THE PATFdT lUmISHiM OF 



OOOOUlOO 
00000101 
00000102 



* BURROUGHS CORPORATION' UETkGIT, MICHIGAN 46232 



00000103 
00000104 
OOOOOlOS 






COPYRIGHT io 1^71, 197^ HLHRrn.nHS cr.H^nHATTnNi 



BEGIN 



* AA320206 AA386657 
SUBROUTINE SPACPHPi 



00O00106 
00000107 

nnoooina 



*; 



DO 



BEGIN 

FILL TOGGLE WITH FALSE/ 

FILL TALLY WITH JJ 



BEGIN 
SPACE 
SPACE 



MTAi 

MTA TAPEMAR*; 



DO SPACE MTA 7 TIMES/ 

SPACE MTA TAPEMARK; 

DO SPACE MTA A| PH A 7 T l MEb/ 



SPACE MTA TAPEMARK; 
DO SPACE MTA 10 TIMES* 



DO SPACE MTA 11 TIMES; 
SPACE MTA TAPEMARK ON ERRuK 
ELSF 



SPACE 
ELSE 



MTA TAPEMARK ON ERROR 



BFG1N 



fill toggle with true* 
stop; 



END/ 



DISPLAY DOUBLE; 
PRINT PATTERN NQF1ND 
("CHMMFNT: FAll El) 



FILL TALLY WITH TALLY+i; 
IK TALLY NEG J THEM 
PRINT PATTERN RETBY 



TU t INO END L1F FILF «4") I 



DISPLAY PAGE? 
REWIND MTA; 
FNn 3 TTMFSl 



24(9" "/"-HILL THY AGAIN") ; 



IF TOGGLE THEN 

IF TALLY NEU THEN 

PRINT PATTEHN FuUNH 



il. ii *• r... 



( H COMMENT: 
"FILE 



this time The end 
#4 was found") 



OF 



ELSE 



BEGIN 



PRTNT PATTFHU [LUCMU 



end; 
end; 

»»»**»«****BE(iII\NlNe 



STDPI 



C "TEST DISCONTINUED " ' 
"UNABLE TO LOCATE WRITE 



00000109 
00010000 
0001Q10Q 



00010200 
00010300 
OQOlOaOO 



00010500 
00010600 
00010700 



00010800 
00010900 
0001 1000 



OOOIHOO 

00011200 

-0001 1300 



OOOH400 
00011500 
0QO116CC 



00011700 
00011800 
00011900 



0001200C 

00012100 
00012200 



00012300 
00012400 
00012500 



00012600 
00012700 
QU042SQQ 



00012900 
00013000 
QQ01310Q 



00013200 
00U13300 

J0OO 1340 Q, 



00013500 
00013600 
O'flQ 13700 



000x3800 
OOU13900 
QQ0i40Q0 



area") double; 



00014100 
00014200 
00014100 



go test; 
x************test (tape 

TEST 04 



nr PwnfiRAM* 



00014400 

00014500 

****************»******»*****»****»**»* + 00Q;i5nQq 



00020000 
GENERATOR)*** ************************ ********* q Q 3 0000 

■■ — 00040000 



I'; 

-I 
HI I 



,47' ' 
l4i"l 



ft.) I 

S4 
56 
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y. 



00 BEGIN 



PRINT PATTERN ("TEST TAPE li£ Nf:iR AT I ON PROGRAM"), 
PRINT PATTERN 28C"3"J DOUtiLEi ; 



XERASE WRITE AREA 

ERASE MTA PATTERN 8000J 
tWRITF PSFliDn I Ap FI 



00050000 
00060000 
QOO/OQOO 



WRITE MTA PATTERN TAPELABtL.; 
WRITE MTA TAPuMARK; 

xwritf ni.tr 1 



oooaoooo 

00090000 
nnioonnn 



WRITE MTA PATTERN F10 ■8000-(*00ao00bb t, -)i 
WRITE MTA PATTERN FH 3000 C" 11 U 1 11 1" ) 
FROM BUFFER BUFFI J ; 



OOliOUOO 

oouoooo 

00130000 



WRITE MTA PATTERN Fl2 8000 I "22222222" ) ' 
WRITE MTA PATTERN F13 tiOOO C "44444444" ) 

FKriM RIJFFFR RUFFW 



00140000 
QO 150000 
00160000 



WRITE MTA PATTERN Fi4 8000{*8e888886"X; 
WHITE MTA PATTERN Fib 8000C QCT"2020202020202020" ) 
FROM BUFFER HiJFFlJ 



00170000 
00180000 

0019000,0 



WHITE MTA 
WRITE MTA 
EWR I TE FI LF 2 



pattern f16 
tapcmark; 



d00u( OCT' 40 4.0 40 11 40 1»0 40 40"); 



00200000 
00210000 
00220000 



00230000 

00240000 
Q Q23PQ CQ 



IF M0D3 THEN 

WRITE MTA 

F .LSF : 



PATTERN F20 8000 (OCT "373737 37373737 37" ) ALPHA 



WRITE MTA PATTERN F26 8000 c 0CT"7 7 17 ?7?7? 117 177 7" ) 
WRITE MTA PATTERN F21 80Q0C OCT" 36 36 36 J6 36 3636 36" ) 
FR O M B UFFER BUFF I tVLdfcUU 



00260000 
00270000 
00280000 



alpha; 



WRITE MTA PATTERN F22 8000C QCT"3535353535353535" > 

WRITE MTA PATTERN F23 8000(0CT"3232323232323232 M ) 

FROM BUFFER BUFFi" ALPHA; 



002*0000 
00300Q00 
003 10000 



ALPHA; 



WRI.TE MTA PATTERN F24 6000 (OCT " 2.7 *7 27 27 21 27 27 27 n ) 
WRITE MTA PATTERN F25 8000 ( OC .T "57 5 7.575^5757.575 7" ) 

FROM BUFFER RUFF I aUiilAi 



00*20000 
00330000 
00340000 



alpha; 



WRITE MTA 
WRITE MTA 
rwRITF FfLF ^ 



pattern f26 
tapemark; 



00350Q00 
00360000 
00.370000 



alpha; 



00380000 
00390000 
00400000 



DO 



xa 



WRITE 

times; 



MfA PATTERN F3 8000 ( UC T " 77 767/7 677 7677 76" ) 



WRITE MTA TAPEMARK; 
XWRITE FILE 4 
Fill, TAIIY WTTH B8 



00410000 
00420000 
00430000 



00440000 
0O4500OC 
00460000 



DO 
BEGIN 



WRITE MTA PATTFHK F4 SOOBCOCT "5^ 35b? 3552355235") 



E ND 



THRU 
FILL TALLY 

11 times; 



00470000 

00460000 
00490000 



tally; 

with ially*8oo; 



WRITE MTA TAPEMARK; 
WRITE MTA TAPtMARK/ 
REWIND MTA? 



00500000 
00510000 
00520000 



XENO OF TAPE GENERATION PART 

FILL BUFFER BUFFI WITH PATTERN 8000C" "); 
ttRFAD LABEl " 



00530000 
00^40000 
QG35Q00Q 



READ MTA 
READ MTA 
XREAQ FILE X 



pattern tapeuabel 
tapemark; 



INTO BUFFER BUFFi; 



00560000 
00570000 
00580000 



READ MTA PATTERN FIO INTO BUFFER 8UFFH 
READ MTA PATTERN Fli INTO SUFFER BUFFi; 
READ MTA PATTERN F12 INTO BUFFER., BUFFU 



00590000 
00600000 
00610000 



00620000 
00630000 
0Q64000Q 



"1 



If I 



>r 



13 
14 
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16 
17 
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40 
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42 
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47 
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49 
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52 
53 
54 
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^_ 



HLAD 
READ 
R EAD 



MTA 

MTA 

JOA. 



PATTLRN 
PATTERN 
PATTLRM 



F13 
F14 
JLli 



INTO 
INTO 

IN TO 



BUFFER 
BUFFER 
riUFFLR 



bOFFli 
BUFFI* 
HUFF)* 



READ MTA 
READ MTA 
XRFAn FTI F 3 



PATTERN F16 
TAPEMARKj 



INTO BUFFER BUFFI* 



OG6i>0000 
00660000 
Q6?Q Q0Q 



00660000 
006V0000 
00700000 



IF M0C3 THEM 
READ .MTA 
_EX££ 



PATTERN F20 InTP BUFFER BUFFi ALPHA 



READ MTA PATTERN F26 
READ MTA PATTERN F21 INTO 
REAP MT& PATTLRNi F2? INTO 



into buffer buffi; 
Suffer buffi alpha; 

BUFFER RUFFl ALPHA t 



00710000 
00720000 
OO/.-iOOOO 



00740000 
00750000 
07 6 OOP 



READ 
READ 
R LAD 



MTA 
MTA 
MTA 



PATTERN 
PATltRN 
PATTERN 



F23 
f 24 
F25 



INTO 
INTO 
I NTU 



buffer 
buffer 
b uffer 



buffi 
buffi 

HUFF I 



alpha; 
alpha; 
Acpha; 



READ MTA 
READ MTA 
X R EA D FIL E 3 



00/7 0000 

oo'eoooc 

QO'VOO OQ 



pattern f26 
tapemark; 



INTO BUFFER BUFFI ALPHA/' 



DO 
BEGIN 



00800000 
00810000 

ooB20nno 



END 

10 times; 
xreao file 4 



RFAD MTA PATTERN F 3 INTO 8-U-F4 ER BUFFi; 



00830000 
00840000 
OQB^OOCO 



FILL BUFFER BUFFI WITH 
READ MTA TAFEMARK; 
FILL TALLY WjlTh 6; 



P A T T £ K iv 6Uu8C H " J > 



00860000 
00870000 

oofia'nooo 



DO 
BEGIN 



oodyoooo 
oo^uoooo 

- QQ^ i O OQ Q 



READ MTA PATTERN! F U IhRU TAliY mTf] ftUFFFR BUFFI! 



FILL TALLY *ITH lALLf+80Q; 

end 11 times; 

read mta tapfmrk; 



009*0000 
00*30000 
Q Q94Q 0QQ 



FNn 



READ MTA TAPEhARKJ 

rewind mta; 

* times; GO FXlTI 



O09.b0000 
0Q96000C 
O OV^O QOO 



************TE8T 
TE*>T It 
TF MUD3 THEN 



00980000 
00990000 

01000000 



FILL TOGGLE WITH FALSE 
ELSE 

BEGIN 



1 (807 sensing tfst)***********************************oioiooqg 

OlOeiOOOO 
01,030000 



PRINT PATTERN DA&h 72("-"^ 
PRINT PATTERN ("TEST #1 NUT Ri,N(NUT 
"WITH MOD IT T/fl C0N1 Km, >V ) i 



01040000 
OlObOOOO 
Q l UQOQ QQ 



AVAILABLE 



end; 

UU BEGIN 



PRINT PATTERN DASHi 
DISPLAY PAGE* 

fiQ tfst; 



OlOfOOOO 
010BOOOO 
Q1Q9QQQ0 



01100000 

01110000 

01 la.flcvnfl 



PRINT PATTERN ("TEST »1 - BOT SENSING UST")/ 



PKINT PATTERN UL26 26( M «'*) DOUBLE/ 

REWIND MTA ROT; 

IF BOT THEN FILL TOGGLE WITH TRUE* 



01130000 
01140000 
OllbOOOO 



BACKSPACE MTA BOT"/ 

IF BOT THEN FILL TOGGLE WITH TRUE/ 

RCAn MTA HTT BKHfi; , 



01160000 
01170000 
01180000 



IF BOT THEN FILL TOGGLE WITH TRUE 

END * times; 

IF Tflfim E THEN GO TEST ELSE 



OllVOOOO 
01200000 

Q1 2 1Q0QQ 



01220000 
01230000 
01240000 



,4/1 

4fl| 
49 



52 
5* 

■Oil 



3 

4 

> 5 

6 

7 

► V 

9 
10 

12 
13 
| 14 
15 
16 

I » 
18 

19~ 
J 20 

21 

22 
) 23 

24 

25 
) 26 

27 

28 

I » 
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BEGIN 



print pattern cunit failiu to devest bot») double; 

PRINT P A T TFHM fftFM A TM N. fi S T . HF D l i I J- n J'^T. S M n T Rl.'N"?* 



go exit; 
end; 

%**********i,tFSj 2 (TAPE POSITIONING 



01250000 
01260000 



TE*T 
DQ 



2« 

BEGIN 



01280000 
012V0000 
TEST )»*»»♦*«**»»»*»»»« «»*»»*»»• + «*»Qi 3 UOOOO 



PRINT PATTEHN ("TEST £* " TAPE POSITIONING TEhT«W 



PRINT PATTERN 3lt H » N ) 
SPACE MTA PATTERN 721 
SPACE MTA TAPFMaRk; 



double; 



ou 



SPACE 

times ; 



MTA PATTERN rtOCU 



SPACE 

00 



7 times; 

space mta 

JUL , „ , 



mta tapemark; 

SPACF MTA PATTERN Mfltii^ 



tapemar*; 



SPACE MTA PATTERN 0000 

lo times; 

SPACE MTA TAPFMARK? 



SPACE 
SPACE 
..SPACE 



MTA 
MTA 
JiiA- 



SPACE 
SPACE 
SPACE 



MTA 
MTA 
MTA 



PAT rtRN 
PATTERN 
P A TTERN 



PATTERN 
PATTERN 
PATTERN 



a; 

808Ji 
16Q8; 



2408; 

320a; 
noon; 



space 

SPACE 
SPA CE 



MTA 

MTA 

JUJL 



PATTERN 
PATTERN 
PATTE RN 



4fl0d/ 

56oa; 



SPACE MTA PATTERN 7208; 
SPACE MTA PATTERN 8008; 
SPACE MTA TAPEMARK; 



BACKSPACE MTA TAPEMARK* 
BACKSPACE MTA PATTERN 8008* 
AACKSPACF MTA PATTE RN 7?Q4'> 



BACKSPACE 
BACKSPACE 
BACKSPACF 



MTA 
MTA 

MTA 



BACKSPACE 
BACKSPACE 
BACKSPACE 



PATTERN 
PATTERN 
PATTERN 



BACKSPACE 
BACKSPACE 
BACKSPACE 



MTA 
MTA 
MTA 



MTA 
MTA 
J1IA 



PATTERN 
PATTERN 
PATTERN 



6408/ 

5608; 
4B0dJ 



4Q0d> 
3208; 
240d; 



PATTERN 
PATTERN 
PATTERN 



1608 J 
80 8# 
8J 



BACKSPACE MTA TAPEMARK; 
00 

BACKSPACE MTA PATTERN 8000 



io times; 

BACKSPACE 
00 



mta tapemark; 



BACKSPACE MTA PATTERN 8000 
7 TIM£S; 
BACKSPACE MTA TAHEMAitKi 



00 

BACKSPACE 
7 TIMES; 



MTA PATTERN 8000 



OliiOOOO 
013*0000 
01330000 



0134O000 
01350000 
01*60000 



013/0000 
01380000 
Ql JVQO CC 



oi 400000 

0H10000 

nManooo 



01430000 
01^40000 

cufinooo 



01^60000 
01470000 

ni4annnn 



014VU000 
014V1000 

oi^ao o Q 



014^3000 
014V4000 
0l49 t >Q0Q 



Ol4'*6000 
014V7000 
QH98QQ Q 



01499000 
01500000 
01520000 



01530000 
01540000 
Q1541QQQ 



01542000 
01543000 
01544000 



01545000 
01546000 
01547000 



01548000 
01549000 
01550000 



01570000 
01580000 
0159000Q 



01600000 
01610000 
Q162Q000 



01630000 

01640000 
0165QQ0Q 



01660000 
01670000 
01680000 



2 HI 
i2B 
10 



15 7/ 



>T 



9 
10 
11 
12 
13 



14 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
26 
26 
27 



28 
29 



30 
31 
32 
33 
34 
35 
36 
37 ~ 



38 
39 



40 
41 



42 

43 



44 
45 



46 
47 
48 
49 
50 
51 



52 
53 
54 
55 



56 
E7 



BACKSPACE MTA TAP_MAKK> 

BACKSPACE ("TA/ 

RKWIND mta; 



016*0000 
01700000 

01/20000 



end * times; go test; 
x*****#*****test 3 (tape mark 

TEST tt 



01/30000 

RECOGNITION T£ST)*************************Ol74U000 

01 7 -0000 



UO BEGIN 



PKINT PATT 
PHINT PATT 



ERN ("TEST «3 - U 
EHIM 36 ("*"■) OQUriiE 



PL MARK RECOGNITION TEST"); 
j — , 



SPACE 

00 

BEGIN 



01700000 
01770000 
OlftiOOOO 



MTA PATTERN 111 



01/90000 
01600000 
OlHlOOOO 



READ 
00 SP 
READ 



MTA 
ACE 
__LA_ 



TAPEM 
MTA 7 
TAPFM 



ark; 

times; 
ark; 



oiaioooo 
oiajoooo 

Q), 940 00,0 



DO SPACE MTA ALPHA 1 TjMES; 

READ MTA TAPEMARK; 

0Q SPACF M TA 1 TIM E3J 



018S>0000 
01660000 
01B7 000Q 



READ 
DO SP 
SPACE M 



MTA 
ACE 

IA 



TAPEM 
MTA 1 



ark; 

1 TIMES; 
«~J 



ZMA 



READ 
DO BA 
BAOKh 



MTA 

CKSP 

P-A£ 



TAPEM 
ACE M 
I 



ACE MTA 



ARK BKWO; 
TA 11 TIM 
TAPFMAHK; 



01860000 
01890000 
0190000 



es; 



DO BACKSPACE MTA 10 TIMES* 

READ MA TAPEMARK BKwU; 

00 BACKSPAC E MTA A L PnA 7 T lM E Sj 



01910000 

01920000 
019 300Q0 



READ 

DO 8A 
READ 



01940000 
01930000 
fllVftQOOO. 



MTA 

CKSP 

MTA 



TAPEM 
ACE M 
TAPEM 



ARK BKrtD; 
TA 7 TIME 
ARK BKflDt 



s; 



01970000 
01980000 
oi9goonn 



END 

3 times; 

R EWIND MTA , 



END * TIMES* GO 
X***********TeST 4 ( 
TEST Ht 



02000000 
02010000 

Qg o a oooo 



test; 
parity error recog 



00 BEGIN 



02030000 
NIT ION TEST )*****************#****0204Q000 
020-0000 



PRINT PATTERN ("TEST #4 - Pa 
PAINT PATTERN 39("=") DQUdLE 



RITY ERROR 



RECOGNITION 1EST"); 



02060000 

02070000 
020*0000 



READ MTA P 
REAO MTA T 

00 



ATTERN 72; 

apemark; 



02100000 
02110000 
02120000 



READ 

7 times; 

Jl_ 



MTA PATTERN dOOO ALPHA PAR I I Y 



02130000 

02140000 

.02150000 



READ 

7 times; 
nn spacf m 



MTA PATTERN 8000 8KWD ALPHA PARITY 
T_ A| pHA 7 TlMESi 



02160000 
02170000 
Q 9l-0flnn 



SPACE 
DO 



MTA tapemark; 

READ KTA PATTERN flQQO PARITY 



02190000 
02200000 

oaaioooo 



7 times; 

DO 
READ 



MTA PATTERN 8000 PARITY BKWD 



02220000 
02230000 
P 22<tO Q QC 



END 



7 Times; 

rewind mta 
■ times; r,n 



test; 



02250000 
02260000 
227000 



%**#****#* **TE ST 
TE5T 5» 
On BEGIN 



__-_d 1 I— ~r — »__^ . — — w f;,, — 1 _c uj w u 

5 (TAPE READ TEST ) *************************************0226Q0OG 



02290000 
Oa3000nO 



>■■! 



:.ts 
Hi 1 



1 

4fi| 

I4--I 
4H 1 

Ml 
hi 



^r 



17 
IS 



19 
20 



21 



25 



27 
28 



30 



32 
33 



34 

35 

"- 
37 



38 



41 

42 



45 



49 
50 



JO 

ii 



53 



55 
56 



PRINT PATTERN ("TEST tb - TAPE 
PRINT PATTERN 24C" = ") DOUBLEi 
READ MTA PATTuRK) 7?! 



READ TEJ>T")i 



READ MTA 
XREAD FILE 1 
READ MTA 



TAPEMARK, 



PATTERN Flf) INTO BUFFER HUFFli 



READ 
READ 
READ 



MTA 
MTA 
MTA 



PATTERN 
PATTERN 
PATTERN 



Fll 
F 12 



1M0 

INTO 

-UOSL 



BUFFER 
BUFFER 
BUFFER 



bUEFl> 
bUEEi/ 

Hum> 



READ 
READ 
READ 



MTA 
MTA 
MIX. 



PATTtRN 
PATTERN 
PATTERN 



E14 
F15 
El 6 



INTO 
INTO 
INTO 



buffer 
buffer 

BUFFER 



BUFFli 
BUFFI* 
BUFF 1 i 



REAO 
READ 
READ 



MTA 
MTA 
MTA 



PATTERN 
PATTERN 
PATTERN 



READ 
REAO 
RE*n 



MTA 
MTA 
M TA 



F16 
F15 



BKWQ 
BKfciD 

sawn 



PATTERN 
PATTERN 

P ATTE RN 



E13 
EI2 
Fll 



8KWD 
BKWD 
H KH D 



INTO 

Intc 

1NU 



into 
Into 
iNTf; 



BUFFER 
BUFFER 
BU FF E R 



buff i; 

BUFF 1; 
B U FE 1 > 



BUEFER 
BUFFER 
BUFFER 



READ MTA 
DO SPACE 
READ MTA 



BUFEU 

buffi; 

BUFFli 



PATTERN F10 BKWU 

mta f times; 

TAPEN A RK J— , 



INTO BUFFER bUFFli 



XREAD FILE 2 

IF M003 THEN 
READ MTA 



ELSE 



HKAn 



PATTERN F26 PARITY INTO BUFFER BUFFI 



READ NTA PATTERN 
MTA PaTTFRM FPIa 



PARITY INTO 
READ MTA PATTERN 

--_ PART TV TMT[) 



Ego PARITY INTO BUFFER BUFF"!/ 
S OmanC,"" 767 6767 6 7 67 676 7 6-1 



BUFFER BUFFli 
E22A eOOOCQCT' 
RtlFFFB miF'Fl ; 



7b757b7i7b75757b" ) 



READ MTA PATTERN 

PARITY INTO 

READ MTA PATThRN 



PARITY INTO 
READ MTA PATTERN 
READ MTA PATTERM 



F23A ttOQUC0.CT ,, 737373/3737.37373") 

SUFFER BUFFli 

F?4A BOOOCTir. T"ft7M7<S/6 7<S7ft7ft7ft7'M 



BUEEEK BUFFli 

F25 PARITY INTO BUFFER BUFFli 

F20 PARITY INTU BUFFER Bl-FFli 



READ MTA PATTERN F20 BKWD PAR[TY INTO bUFFER BUFFli 
READ MTA PATTERN E25 BKWD PARITY INTO BUFFER BUFFli 
READ MTA PATTERN E2<iA BKHU PAKlTY I N Tb BUFFER BUFFli 



READ 
READ 

, R£AD 



MTA 
MTA 
MTA 



PATTERN 
PATTERN 
PATTERN 



E2 3A 
F22A 
E21A 



BKWD 
BKWD 



PARITY 
PARITY 

PARITY 



INTC 

INTO 
INTO 



IF M003 THEN 

REAO MTA 
ELSE 



BUFFER 
BUFFER 
BUEFER 



BUFFli 
BUFFli 
BUFFli 



Pattern 



bk'*d parity into buffer buffi 



read mta pattern F20 parity 

DO SPACE MTA ALPHA 7 TlMESi 

read mta tapfmark; 



into buffer buffi; 



*read file 

do 



READ MTA PA1TFRN E3 



INTO BUFFER BUFFl 

io times; 

DO REAP MTA PATTERN F3 INTO BUFFER fttJFE 1 BKWD 10 TIMES? 



.00 SPACE 
REAO MTA 
SRFAH FT! F q 



MTA 10 times; 
TAPEmark; 



fill tally with a; 

DO 

beg in 



023100C0 
0232000C 

02330000 



02340000 
02350000 
02360000 



02370000 

g^boooc 

Q2JV0O00 



02400000 

oanoooo 

n?4sonnn 



02430000 
02^^0000 

02450000 



02460000 
02470000 
oy»fionnn 



024<*0000 
02S00000 
02510000 



02520000 
02530000 
02540000 



02b5000C 
02560000 
Qy5?0Q0 C 



02580Q00 
02590000 
02600000 



02610000 
02620000 

Q 26JQQ C0 



02640000 
02650000 
0266000Q 



026/0000 
0266000G 

Qp6tfonofi 



02/00000 
02'10000 
02/20000 



02730000 
02740000 
027^0000 



02760000 
02770000 
02760000 



02790000 
02600000 
02910000 



02B20000 
02B30000 
02 840 000 



02850000 
02B60000 
2870 00 



02880000 
02890000 
Q2V00000 



i I 



"it 



h 



1 

2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 

ie 



19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 " 



45 
46 
47 
48 
49 
50 
51 



52 
53 



54 
55 
56 

SP- 



READ MTA PATTER* F4 THRU TALLY I* TCI BUFFER BUFF1J 
FILL TALLY *ITH TmLLY+BOOJ 
ND 11 TIKES? 



02^10000 
02^20000 
nav30on» 



BEGIN 



FTl I T Ai LY W I TH TA l L Y»fl QQ* 



02940000 
02^b0000 
02960000 



READ VTA PATTERN F"4 THRU TALtY INTO BUFFER BUFFI BKW 

end ii times; 

REWIND MTA? . „ 



l)i 



029/0000 
029d000U 

owoono 



E 

% ***** 

TFST ft 



NO * TIMES* GO TEST; 

******T£ST 6 (TARE WRITE TEST )*********************** ******** 



00 BEGIN 



PRINT 
PRINT 



PATTERN 
PATTERN 



('•TEST #6 - 
U|,2i ^("s" 



tape write 



TEST" n 



CALL SPACEUP; 

IF NOT TOGGLE 
iRrGTNNlNG Or tf.st 



then stop; 



WRITE MTA PATTER* FlO; 

WRITE MTA PATTERN Fll FROM BUFFER BUFFI/ 

WRITE MTft PATTERN F-Ui 



WRITE MTA 

WRITE MTA 
WBITT MTA 



PATTERN 

PATTERN 
P A T T ERN 



F13 

F14i 

F15 



FROM BUFFER BUFFI* 
F ROM R uF F . FH H U FF 1 ? 



WRITE MTA 
REAO MTA P 
REAP MTA P 



PATTERN 
ATTERN F 
ATT LRN F 



F 1 6 ; 
16 I 



NTO BUFFER BUFFI B*i\D; 
NTO BUFFER HUFF1 BjjuDJ 



REAO MTA P 
REAO MTA P 
READ MTA P 



ATTERN F14 INTO BUFFER BUFFI BKWD/ 
ATTLRN F13 INTO BUFFER BUFFl BKWO; 
ATTERN £12 fNTU BllFFER KUFFl BKfrU; 



READ MTA P 
READ MTA P 
READ MTA P 



ATTERN Fll INTO 
ATTLRN FlO INTO 

ATTLRN F.10 iNTU 



buffer buffi bkwd/ 
buffer buffi bk*o; 

buffer ruffm; 



READ MTA P 
READ MTA P 
R EA D MTA P 



ATTt-RN F 
ATTERN F 
A TTL R N F 



11 I 

12 I 

13 T 



NTO 
NTO 



BUFFE 
8UFFE 
BUFFE 



R aUFFH 
R BUFFi; 

R BUFFI/ 



READ MTA P 
READ MTA P 
READ MTA P 



ATTERN F 
ATTLRN F 
ATTLRN F 



14 I 

15 I 

16 I. 



NTU 
NT CI 
ML ) 



BUFFE 
BUFFE 
BuFFE 



R BUFFl/ 
H BUFF 1> 
B riUFFli 



IF MOD 3 THEN 

WRITE MTA 
F1.SF 



PATTERN F2C ALPHA 



WRITE 
WRITE MTA 
WRITE MTA 



MTA P 
PATTER 
PATTF. 



ATTER 

N F21 

R I M F 2 2 



N V2d 

ALPh 
ALPH 



ALPH/ 

a; 



WRITE MTA 
WRITE MTA 
Wftl T F MTA 



PATTER 
PATTER 
P A T T FR 



N F23 
N F24 
N F 25 



FROM 
ALPH 
FROM 



BUFF 

A >■■■■■-' 
R UF F 



ER BUFFI ALPHA; 
fh RUFTI A| Pha; 



WRITE MTA 
READ MTA P 
READ MTA P 



PATTER 
ATTERN 
ATTL RN 



IN FS6 
F20 
F 2S 



ALPH 
PARI! 
I NTO 



a; 

Y IivT 
B UFFE 



READ MTA P 
READ MTA P 
READ MTA P 



BUFFER BUFFI BKWO/ 
R HUFF ! PA RI TY BKWO/ 



03000000 
*****03010000 
03020000 



03030000 
03040000 
3050( 



-0 



LOOXL 



03060000 
03070000 
3 530000 



03340000 
Q355Q00O 

o.'taftQooo 



03^70000 

03580000 

.03590000 



0360000C 
0361000U 
03620000 



03630000 
03640000 



03660000 
03670000 

oioaoooo 



03690000 
03700000 

03710000 



03/20000 
O3/JO0O0 
03/^0000 



03/50000 
03/60000 
3770 000 



037B000O 

037*0000 
03800000 



03810000 
03820000 

oaaa oo oo 



03B40000 
03B50000 
39p 6Q0Q 



ATTERN 

ATTtRN 
ATTfcR N 



F24A 
F23A 
F2 2 A 



PARI 
PARI 
PARI 



TY IN 
TY IN 
TY IN 



TO BUFFER 
TO BUFFER 
TQ B UFFER 



BUFFI BKWDi 
BUFFI BKWO; 
BUFFI BKWOi 



READ MTA P 
IF M0D3 TH 
HFfilN 



ATTERN 
EN 



F21A PARITY INTO BUFFER BUFFI BKWD/ 



03B700Q0 
03880000 
Q3 69 Q QQQ 



REAO 
READ 
FNO FISF 



MTA PATTERN F26 PARIT 
MTA PATTERN F26. PARIT 



03900000 
03910000 
03920000 



Y INTO BUFFER BUFFI BKWD; 

Y INTO BUFFER BUFFU 



03930000 
03940000 

m9SQono 



■II; 1 
l«, 
4.'j| 
44! 

4fj| 

- I 

4 til 
|47| < 

1 4 81 

"U 

5t 
f>l 
52 
M 
54 
55 
56 

Is? 



h 



12 
13 
14 



16 

► » 
18 

19 
| 20 

21 

22 
} 23 

24 

26 
f 26 

27 

28 
| 29 

30 

31 ~ 
| 32 

33 

34 
I 35 

36 

37 ~ 



39 
40 
41 

42 



43 

I M 

45 

46 

| 47 

48 

49 

>5 

51 

52 

I 53 

54 

55 
I 56 



BEGIN 



READ 
B f. A D 



MTA 
JLUL 



end; 

READ 
R EAD 



PATTERN 

pattern 



F20 

f?.o 



PARITY 
PARITY 



INTO 



bUFFER 
tiUFFEH 



BUFFI bKKD; 
BUFFI i 



03V60000 
03*70000 

navflnooc 



MTA 

mTa 



PATTERN 
PATTERN 



Fa I A 
F2?A 



PARITY 

PARITY 



INTO 
TNTH 



READ 
READ 
*EAp 



READ 
DO 



MTA 
MTA 
MTA 



PATTERN 
PATTERN 
PATTERN 



BUFFER 
BUFFER 



BUFF i J 
RUFF1 I 



F23m PARITY INTU BUFFER BUFF 1* 
F2«A PAKiTY INTU BUFFER BUFFi; 
F25 PARITY INTO BUFFER Bl.FFli 
MTA PATTERN F20 PARITY INTU 8UFFEH BUFFi; 

WRlTF UTA PATTFRN F 3 



03**0000 
04000000 
naoionnn 



04020000 
04030QOO 



10 



times; 



04050000 
04060000 
04070000 



10 
00 



REAP MA PATTERN F3 INm bUiEiXB hilEU RKhn 



times; 



040t3000C 

04090000 
41UQQ 0Q 



READ l*TA PaTTFRN F? I N TH fit -iP.P Fft '■ RUffff «. 



10 TIMES; 
FILL TALLY 
J10 



04110000 
04120000 
04130000 



with 6; 



BEGIN 



04140000 
04150000 
00160000 



WRITE MTA PATTERN F4 THRU TALLY; 
FTI I Tfll I Y UlTH TAI I Y+aftflj 



end ii times; 

DO 

B EGIN 



041/0000 
04180000 

04190000 



-ENO- 



00 
BEGIN 



FILL TALLY WITH TALLf-800; 

READ MTA PATTERN F4 ThRu TALLY INTC BUFFER BuFF 1 BKWC; 

u times; — 



04200000 
04210000 
4 220000 



04230000 
04240000 
Q'l 2i» 00 Q 



R E AD MIA P A TTFRN F 4 T Hfil, TAI I V iNT fl rillFFt-H HI/FFH 



FILL TALLY 

end ii times; 

REWIND MTA,t 



rtlTH TALLY+QOO; 



04260000 
042/0000 
042riQ0flQ 



end * times; go test; 
************te5t 7 (translator 

TFST 71 



04290000 
04300000 
04 310000 



00 BEGIN 



0432000C 

TEST^************************************04330000 
: — 04340000 



PRINT PATTERN ("TEST *7 - TRANSLATOR TEST"); 
PflTNT PATTFWM III ?» nniiH|Fi 



CALL SPACELP; 

IF NOT TOGGLE 

SREGINNTNG OF TEST 



04350000 
04360000 
04370000 



THEN STOP 



DO WRITE MTA PATTERN R 64CRT.PPLE ■"?"> 5 TIMES; 

DO BACKSPACF MTA 5 TIMES; 

DP RFAD MTA PATTFKN W IhlTfi HIlFFFP RuFFl S J luFRf. 



043d0000 
043*0000 
04/90000, 



DO READ MTA PATTERN Rl 64 

(8 OCT "1315161760616263"* 
fl OCT "^465666770717472"* 



04800000 
04810000 
48 2 000 



3«*s]"> 
1 



04830000 
O4ba0O00 
048*30000 



H«l» 



4"«JKL"* 



8"MN0PQRxS"* 

8 OCT "5355565734212223"* 

8"DEFGHU."* 



04860000 
048 70000 
048900QQ 



8 OCT "3335363714010203"* 
8"4$67e90#") INTO BUFFER BUFFI ALPHA BKwO PARITY 
ON ERROR - 



04890000 
04900000 
04910Q0Q 

04*20000 
04930000 
04940Q0Q 



in. 



h 



10 

12 
13 

> U 
15 

16 

) ' 7 
18 

19 

I 20 
21 

22 

I 23 

24 

25 

i 26 

27 
28 
29 
30 



32 
33 



34 
35 

36 

37 " 
38 



40 



47 
48 



49 
SO 



i 53 
54 
55 



BEGIN 



LlSPLAY 
STHPi 



PACifcli 



END 
5 times; 



04950Q00 
0-H560000 
Q49/Q000 



WRITE 
5 TIMES; 
-M 



MTA PATTERN R Ai»pHA 



04980000 

04990000 
nsooonnn 



5 TIMES; 



READ VTA PATTERN « 

INTO BUFFER BUFF 



OijOiOOOO 
05020000 
05 U 300 , . 



1 ALPHA 8KWD 



00 



05040000 
05050000 
Ob'toUQQQ 



READ MTA PATTERN R3 64c 
£ OCT "I5l6l/72al6?63fi*". 



8 OCT "IS566677071737460"* 
8 OCT "757677524U24344'N 
fi ncT "as4647sosi sisaitn'«. 



050/0000 
osoaoooo 
oso^ooon 



8 OCT 
INTO BUFFER 
ON ERROR 



8 OCT "35565/2021222324"* 

8 OCT "25262/30313^3432' , * 
8 OCT 'M5^7i?01O?n *oa". 



05100000 
05110000 

05120000 



M 05060710U131400") 
BUFFI PARITY 



05130000 
05140000 
Q51JU000. 



BEGIN 



05160000 

051/0000 

- 051B0000 



DISPLAY 
.STOP? 



PA^ 



t> 



END 
5 TIMES; 

RfWTMp MTAf 



05190000 
05200000 
05210000 



end * times; gq test; 

X***********x E sT 8 (ALPHA TAPE REAO 
TP»T 8 8 



05220000 
05230000 
05240000 



00 BEGIN 



05250000 
TEST3**+****************************Q526QQ0Q 

: — 052/0000 



PaiNT PATTERN ("TEST *B - ALPHA TAPE 
PRTMT P A TTFQN Hi jQ mrMl nni,H L ci 
SPACE mta; 

SPACE MTA TAPEMAHK/ 

DO SPaCF mta ? timfs: 



READ TEST"); 



05280000 
05290000 
05*00000 



SPACE MTA TAPEMARK/ 
IF M0Q3 THEN 

REAP) MTA PATTERN 

ELSE 

READ I^TA PATTERN K26 
READ MTA PATTERN F?1 TNTO 



05310000 
05320000 
Q5330QQQ 



F20 INTO B1JFFFW Hli FFl AIPHA 



05340000 
05350000 
Q536Q00fl 



READ 
READ 
REAP 



MTA 
MTA 
MTA 



PATTERN 
PATTERN 
PATTERN! 



F22 
F23 

F24 



INTO 
INTO 

I N TO 



into buffer buffi alpha; 

BUFFER HUFFl ALPHA) 



buffer 
Suffer 

b uffe r 



BUFFI 
BUFFI 
dUFFl 



alpha; 
alpha; 
al ph a ; 



053/0000 

053a0000 
053*0000 



READ MTA PATTERN F25 INTO BUFFER BUFFl ALPHa; 
READ MTA PATTERN F26 INTO BUFFER BUFFl ALPHA; 
READ MTA PATTERN F26 INTO BUFFER RUFF 1 ALPHA hKwn; 



05400000 
05410000 
05420000 



READ 
READ 
READ 



MTA 
MTA 
MTA 



PATTERN 
PATTERN 
P ATTER N 



F25 
F24 
£_2J_ 



INTO 
INTO 
INTO 



READ MTA PATTERN F22 INTO 
READ MTA PATTERN F21 INTO 
TF Hf.03 THEN 



BUFFER 

buffer 

BUFFER 



Buffer 

BUFFER 



BUFFl 
BUFFl 

BUFFl 



BUFFl 
BUFFl 



ALPHA 
ALPHA 
ALPHA 



ALPHA 
ALPHA 



bkwd; 
bkwd; 
bkwd; 



05430000 

05440000 
Q 5450Q QQ 



bkwd; 
bkwd; 



05*60000 

054/0000 

Q54aoooo 



ELSE 



HEAD MTA PATTERN F20. INTO BUFFER BuFFl ALPHA BKWD 
R EAD MTA PATTERN F 9.6 iMTfl BUFFER BUFF1 Al PHAi 



054V000Q 
05500000 
05510Q0Q 



05520000 
05530000 
05540000 



1 

i 



26 
& 
IJ(J| 



[•III I 
4? 

45 
JJ 

L 

L 7 i 



I Mi 
51 
•52 
53 
54 
F'f) 
5fi 
5? 



- 5 
6 
1 
B 
9 
10 
11 
12 
13 
14 
IB 



16 

► " 
18 

19 

| 20 

21 

22 

\ o 

24 

2S 
( 26 

27 

28 
| 29 

30 

31 

\ » 
33 

34 

I 3S 

36 

37 _ 
| 38 
39 



40 
i 41 
42 
43 ~ 



45 
46 

| 47 
48 
49 

>50 
51 
52 

I 53 
54 

55 
k 56 



rewind mta; 

END * TIMESi GO TEST; 
^ * * ********* TF ?iT 9 (TAPE M A R K H rt lTF 



TEST 91 

DO BEGIN 



055:50000 

05560000 

lFST)»* + *******»*****»»**********«**Q^5 7UUQ(j 



PRINT PATTERN ("TFST »9 - TAPF MARK WRITE TFST"); 



PRINT PATTERN 
CALL SPACEUP/ 
TF NOT TOGGLE 



JL30 DOUBLE' 
THEN STOP! 



05580000 
055*0000 
056 000 00 



X8EGINNING OF TEST 
DO BEGIN 

WRTTt-- MTA PATTFHW FlOi 



05610000 
05620000 
056.10000- 



WRITE 
END 

SO time s ; 



mta iapemark; 



06030000 
06040000 
0*050000 



DO BEGIN 

READ MTA TAPEMARK BKWDj 
■BACKSPACE MTa; — 



06000000 
060/0000 
06Q.d Q QQQ 



END 

50 times; 
rfwino mta,? 



06090000 
06100000 
061 10000 



06120000 
0613000C 
OM 40Q0Q 



END * TIMES; GO TEST; 06150000 

r*******#***TEST 10 (TAPE ERASE T EST )******** ************#********#**#**06l6Q00C 



TE*T 10» 



DO BEGIN 



06 1 70000 



PRINT PATTERN C"TEST *10 " TAPE ERASE TEST"); 
PRINT P A TTERN U L i Q UUuB LC i. : 



CALL SPACEUP; 

IF NOT TOGGLF THEN STOP; 



06160000 
06190000 
062 00 



FILL TALLY WITH 8> 
WRITE MTA PATTERN F10> 
rtRITF MTA TAPKMARK? 



06210000 
06220000 
nA6?onnn 



DO BEGIN 

WRITE MTA PATTERN F26 THRU TALLY; 
WftTTE MTA TAPFMaRk; 



06630000 
0663100C 
Oft63?000 



READ MTA TAPEMARK BKkD; 

read mta pattern F26 thru Tally rto buffer buffi bkwd; 

ERASE MTA PATTFRN F?6 THRU TAlLYi 



06640000 

06650000 
06660000 



READ MTA TAPEMARK ON ERROR STOP; 
READ MTA TAPEMARK BKWU ON ERROR STOP) 
READ MTA TAPEMARK HKWl) HM ERRHR STOP; 



066/0000 
066d0000 
06690G0C 



HEAD MTA TAPEMARK On ESROR STQR; 
FILL TALLY mTH TALLY+600* 
END 11 TlMFS; 



06/00000 
06/10000 



REWIND MTA; 
END * times; 
laBfj exit: 



06730000 
06/40000 
06/50000 



06/60000 
06//0000 
06780000 



ENU# 06/90000 

Q>ixQ><xQ2<XQ><xQ^<xc><XQ><xo><x(i><x^><><Q><xQ><><w><xQ2<xa><xai<xQjSxQ>SxQiSxQ><x 

QSSxQ><xQ><XQSSxQ>Sx(;><XQ><xo><xQ^<xu>Sx(j>SxQ>Sx(J^<xQa<xd>SxQ^SxQ^<x^>SxQ><xQ><x 
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H 
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-1(1: 

■111 



